Programmers Heaven 2

home *** CD-ROM | disk | FTP | other *** search

/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / midipk.exe / SLIDER.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-05-10 | 32.6 KB | 983 lines

VERSION 4.00 Begin VB.Form FormSlider Appearance = 0 'Flat BorderStyle = 1 'Fixed Single Caption = "Slider Properties Example" ClientHeight = 4845 ClientLeft = 1140 ClientTop = 2025 ClientWidth = 8520 BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 5250 Left = 1080 LinkTopic = "Form2" LockControls = -1 'True MaxButton = 0 'False ScaleHeight = 4845 ScaleWidth = 8520 Top = 1680 Width = 8640 Begin VB.Frame Frame10 Caption = "Bevel Inner" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 855 Left = 6060 TabIndex = 31 Top = 60 Width = 2355 Begin VB.OptionButton OptionBevelInner Caption = "Lowered" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 1080 TabIndex = 35 Top = 510 Width = 1000 End Begin VB.OptionButton OptionBevelInner Caption = "Inset" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 120 TabIndex = 34 Top = 510 Width = 885 End Begin VB.OptionButton OptionBevelInner Caption = "Raised" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1080 TabIndex = 33 Top = 240 Width = 885 End Begin VB.OptionButton OptionBevelInner Caption = "None" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 120 TabIndex = 32 Top = 240 Value = -1 'True Width = 885 End End Begin VB.Frame Frame5 Caption = "Slider" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 3870 Left = 2580 TabIndex = 24 Top = 60 Width = 3315 Begin VslideLib.VSlider Vslider1 Height = 3495 Left = 120 TabIndex = 46 Top = 270 Width = 495 _Version = 65537 _ExtentX = 873 _ExtentY = 6165 _StockProps = 73 BevelInner = 0 BevelOuter = 0 BevelWidth = 2 BorderWidth = 2 Gap = 3 LargeChange = 10 ThumbHeight = 120 ThumbStyle = 0 ThumbWidth = 360 TickColor = 0 TickCount = 5 TickLength = 4 TickMarks = 0 TickWidth = 1 TrackBevel = 0 TrackWidth = 0 Value = 0 Max = 100 Min = 0 End End Begin VB.Frame Frame9 Caption = "Slider Width" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 675 Left = 2580 TabIndex = 12 Top = 4080 Width = 3315 Begin VB.HScrollBar HScrollSliderWidth Height = 255 Left = 210 Max = 2900 Min = 200 TabIndex = 45 Top = 300 Value = 200 Width = 2895 End End Begin VB.Frame FrameBevelWidth Caption = "Bevel Width" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 675 Left = 6060 TabIndex = 11 Top = 1860 Width = 2355 Begin VB.HScrollBar HScrollBevelWidth Height = 255 Left = 210 Max = 10 TabIndex = 44 Top = 300 Width = 1965 End End Begin VB.Frame Frame7 Caption = "Color" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 1095 Left = 60 TabIndex = 10 Top = 1650 Width = 2355 Begin VB.CommandButton CmdBackColor Appearance = 0 'Flat BackColor = &H80000005& Caption = "Background Color" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 150 TabIndex = 18 Top = 300 Width = 2115 End Begin VB.CommandButton CmdForeColor Appearance = 0 'Flat BackColor = &H80000005& Caption = "Foreground Color" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 150 TabIndex = 17 Top = 660 Width = 2115 End End Begin VB.Frame Frame6 Caption = "Tick Marks" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 1935 Left = 60 TabIndex = 9 Top = 2820 Width = 2355 Begin VB.OptionButton OptionTickMark Caption = "Right" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 120 TabIndex = 0 Top = 510 Width = 885 End Begin VB.OptionButton OptionTickMark Caption = "Both" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 1050 TabIndex = 1 Top = 510 Width = 1275 End Begin VB.OptionButton OptionTickMark Caption = "Left" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1050 TabIndex = 2 Top = 270 Width = 1185 End Begin VB.OptionButton OptionTickMark Caption = "None" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 120 TabIndex = 3 Top = 270 Value = -1 'True Width = 885 End Begin VB.HScrollBar HScrollTickCount Enabled = 0 'False Height = 255 LargeChange = 5 Left = 660 Max = 25 TabIndex = 21 Top = 870 Value = 5 Width = 1575 End Begin VB.HScrollBar HScrollTickWidth Enabled = 0 'False Height = 255 LargeChange = 5 Left = 660 Max = 20 Min = 1 TabIndex = 20 Top = 1170 Value = 1 Width = 1575 End Begin VB.CommandButton CmdTickColor Appearance = 0 'Flat BackColor = &H80000005& Caption = "Tick Color" Enabled = 0 'False BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 120 TabIndex = 19 Top = 1470 Width = 2115 End Begin VB.Label Label3 Caption = "Count" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 23 Top = 870 Width = 495 End Begin VB.Label Label4 Caption = "Width" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 22 Top = 1170 Width = 495 End End Begin VB.Frame FrameBorderWidth Caption = "Border Width" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 675 Left = 6060 TabIndex = 8 Top = 2610 Width = 2355 Begin VB.HScrollBar HScrollBorderWidth Height = 255 LargeChange = 4 Left = 210 Max = 10 TabIndex = 43 Top = 300 Value = 1 Width = 1965 End End Begin VB.Frame Frame3 Caption = "Track Bevel" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 1335 Left = 6060 TabIndex = 7 Top = 3420 Width = 2355 Begin VB.OptionButton OptionTrackBevel Caption = "Lowered" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 1110 TabIndex = 39 Top = 570 Width = 1000 End Begin VB.OptionButton OptionTrackBevel Caption = "Inset" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 150 TabIndex = 38 Top = 570 Width = 885 End Begin VB.OptionButton OptionTrackBevel Caption = "Raised" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1110 TabIndex = 37 Top = 300 Width = 885 End Begin VB.OptionButton OptionTrackBevel Caption = "None" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 150 TabIndex = 36 Top = 300 Value = -1 'True Width = 885 End Begin VB.HScrollBar HScrollTrackWidth Enabled = 0 'False Height = 255 LargeChange = 5 Left = 660 Max = 10 TabIndex = 25 Top = 870 Value = 2 Width = 1515 End Begin VB.Label Label5 Caption = "Width" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 26 Top = 870 Width = 495 End End Begin VB.Frame Frame2 Caption = "Bevel Outer" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 855 Left = 6060 TabIndex = 6 Top = 960 Width = 2355 Begin VB.OptionButton OptionBevelOuter Caption = "Lowered" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 1050 TabIndex = 30 Top = 540 Width = 1000 End Begin VB.OptionButton OptionBevelOuter Caption = "Inset" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 120 TabIndex = 29 Top = 540 Width = 885 End Begin VB.OptionButton OptionBevelOuter Caption = "Raised" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1050 TabIndex = 28 Top = 270 Width = 885 End Begin VB.OptionButton OptionBevelOuter Caption = "None" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 120 TabIndex = 27 Top = 270 Value = -1 'True Width = 885 End End Begin VB.Frame Frame1 Caption = "Thumb Style" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 1515 Left = 60 TabIndex = 5 Top = 90 Width = 2355 Begin VB.OptionButton OptionThumbStyle Caption = "Lined" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 90 TabIndex = 4 Top = 510 Width = 885 End Begin VB.OptionButton OptionThumbStyle Caption = "Pointed Right" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 1020 TabIndex = 42 Top = 510 Width = 1275 End Begin VB.OptionButton OptionThumbStyle Caption = "Pointed Left" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1020 TabIndex = 41 Top = 270 Width = 1185 End Begin VB.OptionButton OptionThumbStyle Caption = "Normal" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 90 TabIndex = 40 Top = 270 Value = -1 'True Width = 885 End Begin VB.HScrollBar HScrollThumbWidth Height = 255 LargeChange = 5 Left = 660 Max = 2500 TabIndex = 14 Top = 1140 Value = 360 Width = 1575 End Begin VB.HScrollBar HScrollThumbHeight Height = 255 LargeChange = 5 Left = 660 Max = 2000 TabIndex = 13 Top = 840 Value = 120 Width = 1575 End Begin VB.Label Label1 Caption = "Width" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 16 Top = 1140 Width = 495 End Begin VB.Label Label2 Caption = "Height" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 15 Top = 840 Width = 495 End End Begin MSComDlg.CommonDialog CMDialog1 Left = 90 Top = 4920 _Version = 65536 _ExtentX = 847 _ExtentY = 847 _StockProps = 0 End Attribute VB_Name = "FormSlider" Attribute VB_Creatable = False Attribute VB_Exposed = False Const DLG_COLOR = 3 'Color Dialog Flags Const CC_RGBINIT = &H1& Const CC_FULLOPEN = &H2& Const CC_PREVENTFULLOPEN = &H4& Const CC_SHOWHELP = &H8& Private Sub CmdBackColor_Click() ' ' Load the control with the VSlider BackColor ' CMDialog1.Color = Vslider1.BackColor ' ' Execute the color select dialog ' CMDialog1.Flags = CC_RGBINIT Or CC_FULLOPEN CMDialog1.Action = DLG_COLOR ' ' Assign the selected color to VSlider Backcolor properties ' Vslider1.BackColor = CMDialog1.Color End Sub Private Sub CmdForeColor_Click() ' ' Load the control with the VSlider ForeColor ' CMDialog1.Color = Vslider1.ForeColor ' ' Execute the color select dialog ' CMDialog1.Flags = CC_RGBINIT Or CC_FULLOPEN CMDialog1.Action = DLG_COLOR ' ' Assign the selected color to VSlider Forecolor properties ' Vslider1.ForeColor = CMDialog1.Color End Sub Private Sub CmdTickColor_Click() ' ' Load the control with the VSlider TickColor ' CMDialog1.Color = Vslider1.TickColor ' ' Execute the color select dialog ' CMDialog1.Flags = CC_RGBINIT Or CC_FULLOPEN CMDialog1.Action = DLG_COLOR ' ' Assign the selected color to VSlider Tickcolor properties ' Vslider1.TickColor = CMDialog1.Color End Sub Private Sub Form_Load() ' Center the form on the screen Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 End Sub Private Sub HScrollBevelWidth_Change() Vslider1.BevelWidth = HScrollBevelWidth.Value End Sub Private Sub HScrollBevelWidth_Scroll() Vslider1.BevelWidth = HScrollBevelWidth.Value End Sub Private Sub HScrollBorderWidth_Change() Vslider1.BorderWidth = HScrollBorderWidth.Value End Sub Private Sub HScrollBorderWidth_Scroll() Vslider1.BorderWidth = HScrollBorderWidth.Value End Sub Private Sub HScrollSliderWidth_Change() Vslider1.Width = HScrollSliderWidth.Value If Vslider1.ThumbWidth > Vslider1.Width Then Vslider1.ThumbWidth = Vslider1.Width - 10 HScrollThumbWidth.Value = Vslider1.ThumbWidth HScrollThumbHeight.Value = Vslider1.ThumbHeight End Sub Private Sub HScrollSliderWidth_Scroll() Vslider1.Width = HScrollSliderWidth.Value End Sub Private Sub HScrollThumbHeight_Change() Vslider1.ThumbHeight = HScrollThumbHeight.Value End Sub Private Sub HScrollThumbHeight_Scroll() Vslider1.ThumbHeight = HScrollThumbHeight.Value End Sub Private Sub HScrollThumbWidth_Change() Vslider1.ThumbWidth = HScrollThumbWidth.Value End Sub Private Sub HScrollThumbWidth_Scroll() Vslider1.ThumbWidth = HScrollThumbWidth.Value End Sub Private Sub HScrollTickCount_Change() Vslider1.TickCount = HScrollTickCount.Value End Sub Private Sub HScrollTickCount_Scroll() Vslider1.TickCount = HScrollTickCount.Value End Sub Private Sub HScrollTickHeight_Scroll() End Sub Private Sub HScrollTickLength_Scroll() End Sub Private Sub HScrollTickWidth_Change() Vslider1.TickWidth = HScrollTickWidth.Value End Sub Private Sub HScrollTickWidth_Scroll() Vslider1.TickWidth = HScrollTickWidth.Value End Sub Private Sub HScrollTrackWidth_Change() Vslider1.TrackWidth = HScrollTrackWidth.Value End Sub Private Sub HScrollTrackWidth_Scroll() Vslider1.TrackWidth = HScrollTrackWidth.Value End Sub Private Sub OptionBevelInner_Click(index As Integer) Vslider1.BevelInner = index If OptionBevelOuter(0) = True And index = 0 Then FrameBevelWidth.Enabled = False FrameBorderWidth.Enabled = False Else FrameBevelWidth.Enabled = True FrameBorderWidth.Enabled = True End If End Sub Private Sub OptionBevelOuter_Click(index As Integer) Vslider1.BevelOuter = index If OptionBevelInner(0) = True And index = 0 Then FrameBevelWidth.Enabled = False FrameBorderWidth.Enabled = False Else FrameBevelWidth.Enabled = True FrameBorderWidth.Enabled = True End If End Sub Private Sub OptionThumbStyle_Click(index As Integer) Vslider1.ThumbStyle = index End Sub Private Sub OptionTickMark_Click(index As Integer) Vslider1.TickMarks = index If index = 0 Then HScrollTickCount.Enabled = False HScrollTickWidth.Enabled = False CmdTickColor.Enabled = False Else HScrollTickCount.Enabled = True HScrollTickWidth.Enabled = True CmdTickColor.Enabled = True End If End Sub Private Sub OptionTrackBevel_Click(index As Integer) Vslider1.TrackBevel = index If index = 0 Then HScrollTrackWidth.Enabled = False Else HScrollTrackWidth.Enabled = True End If End Sub